-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 4
-- first background id: 2688
-- card count: 19
-- first card id: 5823
-- list block id: 12803
-- print block id: 0
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 166048 bytes
-- stack block size: 7680 bytes
-- created by hypercard version: 0x01208000
-- compacted by hypercard version: 0x01228000
-- modified by hypercard version: 0x01228000
-- opened by hypercard version: 0x01228000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFFFFFFFFFBFFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x55AA55AA55AA55AA
-- patterns[27]: 0x4008011080042002
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on mouseUp
  if mouseV() < 20 and mouseH() < 20 then
    show menuBar
  else
    hide menuBar
  end if
end mouseUp

on popup thisField
  cleanScreen
  lock screen
  get visible of cd fld thisField
  set visible of cd fld thisField to not it
  unlock screen with dissolve very fast
end popUp

on idle
  if commandKey() is down then
    show menuBar
  end if
  pass idle
end idle

on cleanScreen
  hide menuBar
  hide msg
end cleanScreen

on closeCard
  cleanScreen
end closeCard

on GoHome
  cleanScreen
  answer "Explore the Library stacks or Quit?" & return &return &"(“Home” stack? - Option-click “Library”)" with "Library" or "Quit" or "Cancel"
  if it is "library" then
    set cursor to 4
    if optionKey() is down then
      visual dissolve to grey
      visual dissolve to gray
      visual zoom in
      go home
    else
      visual zoom in
      go stack "Library"
      if result() is empty then else beep
    end if
  end if
  if it is "Quit" then
    doMenu "Quit HyperCard"
  end if
end GoHome

on doMenu WhichItem
  if whichitem is "If Monks Had Macs..." then
    answer "       This stack is from the package" &return &"       “If Monks Had Macs...” 2.5.7" &return &"       ©1988,1989  riverTEXT™"
    exit domenu
  end if
  if WhichItem is not "Quit HyperCard" then
    if whichItem is in "Back,Recent,First,Prev,Next,Last,Find" then
      -- Yeah, it's a pain, but it helps keep the stack from arriving
      -- at your Mac missing cards and with unathorized additions.
      if short name of this bg is "Carmina" then
        answer "Please use just the arrow keys and the mouse to " &"turn the pages of the book."
        cleanScreen
      else
        if short name of this bg is "Main Background" then
          answer "Please use just the arrow keys and the mouse to " &"flip through the notes."
          cleanScreen
        end if
      end if
      exit doMenu
    else
      if first word of whichItem is in "New,Delete,Cut,Paste" then
        if short name of this cd is "AutoMusicon" then
          if last word of whichItem is "Text" then
            pass doMenu
            exit doMenu
          end if
        else
          answer "This stack shouldn't be modified."
          cleanScreen
          exit domenu
        end if
      else
        pass doMenu
      end if
    end if
    exit doMenu
  else
    if the freesize of this stack > 2000 and the diskspace > the size of this stack then
      Answer "Compact this stack before quitting?" with "Compact" or "Next time" or "Cancel"
      If it is "Compact" then
        if cantmodify of this stack is false then
          set loc of Message Box to 17,110
          Put "             Compacting this stack before quitting"
          doMenu "Compact Stack"
        else
          show menuBar
          answer "The Cantmodify of this stack is set to true," &" so compacting is impossible at this time. Next session?" with "OK"
        end if
      end if
      if it is "Cancel" then
        exit doMenu
      end if
    end if
  end if
  pass doMenu
end doMenu

on openStack
  global stacks,JBTempo,JBInst
  cleanScreen
  if the version < 1.2 then
    Answer "Hypercard version 1.2, or later, is available at your " &"Apple dealer. Many functions of this stack require the new " &"features.  Continue?" with "Risk It" or "Go Home"
    if it is "Go Home" then
      visual dissolve to grey
      visual dissolve to gray
      visual dissolve
      go home
      exit openStack
    end if
  end if
  if stacks is empty then
    CheckGlobals
  end if
  About " ","If Monks Had Macs..."
  put empty into JBTempo
  put empty into JBInst
  set userLevel to 5
  set textArrows to false
end openStack

on CheckGlobals
  global GULevel,GPKeys,GTArrows
  global GVPatn,GBTyping,GVMsg,GVTool
  getHomeInfo
  put the userLevel into GULevel
  put the powerKeys Into GPKeys
  put the textArrows into GTArrows
  put the blindTyping into GBTyping
  put the visible of the msg into GVMsg
  put the visible of tool window into GVTool
  put the visible of pattern window into GVPatn
end CheckGlobals

on closeStack
  global GULevel,GPKeys,GTArrows
  Global GVPatn,GBTyping,GVMsg,GVTool,JBTempo,JBInst
  cleanScreen
  if GULevel is empty then
    CheckGlobals
  end if
  set the userLevel to GULevel
  set the powerKeys to GPKeys
  set the textArrows to GTArrows
  set the blindTyping to GBTyping
  set the visible of the msg to GVMsg
  set the visible of tool window to GVTool
  set the visible of pattern window to GVPatn
  put empty into JBTempo
  put empty into JBInst
  about
end closeStack

on sort
  answer "You do not want to sort this stack!!!!" with "Right!!!"
end sort

on show
  put msg into temp
  if first word of temp is "Show" then
    if last word of temp is "cards,cds,card,cd" then
      answer "That isn't possible at this time."
      put empty
      cleanScreen
      exit show
    else
      pass show
    end if
  else
    pass show
  end if
end show

-- Portions of this stack © 1988,1989 by Philip A. Mohr, Jr.
-- Permission is hereby granted for its noncommercial use and
-- distribution.